Ruseni dynamicky vytvoreneho TFrame

Otázka od: Zapletal Martin

20. 10. 2004 7:09

Nasledujicim postupem vytvorim frame a priradim k nemu pozadovane hodnoty.
Chci-li jej smazat, kliknutim si jej oznacim ale pri jakemkoliv pokusu jej
zrusit (destroy, free...) mi skoci AcessViolation a kod skoci do Unit
Handle. Pro oznaceni a posun Frame pouzivam komponentu TStretchHandle.
Zkousel jsem ruzne postupy, ale nejak se nedari. Uz jsem z toho srnka.
Jestli nebude problem nebo nejaka vazba na StretchHandle

       MyFrame := TFrame0.Create(MSheet);
       MyFrame.Name := Sect[i];
       MyFrame.Tag:=DI.ReadInteger(Sect[i], 'Tag', 0);
       MYFrame.Width:=DI.ReadInteger(Sect[i], 'Width', 85);
       MYFrame.Height:=DI.ReadInteger(Sect[i], 'Height', 85);
       MYFrame.Top:=DI.ReadInteger(Sect[i], 'Top', 85);
       MYFrame.Left:=DI.ReadInteger(Sect[i], 'Left', 85);
       MyFrame.Parent := PageControl1.Pages[PageControl1.ActivePageIndex];

Jaky je spravny postup pro ruseni?

Zapletal Martin, D7, WXP